home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / hyperl.com / HYPRDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-10-20  |  2.5 KB  |  68 lines
  1. {$M,2000,2500,2500}
  2.         {  ^---- You must set the low heap limit to a minimum value of 2500   }
  3. (** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **)
  4. (**             HyperText help utility Demo for Turbo Pascal                **)
  5. (**                     Copyright (c) 1990 by BGASoft                       **)
  6. (**                       Written By Robert Gurrieri                        **)
  7. (**                             September 1990                              **)
  8. (** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **)
  9. Program HyperDemo;
  10.  
  11. Uses
  12.   Crt,
  13.   Hyper55; {If you are using Turbo Pascal ver 5.0 then include Hyper50 instead}
  14.  
  15. Begin
  16.   If LastMode = 7 Then
  17.     Begin
  18.       COLOR[1] := 0; {Background color for Normal text}
  19.       COLOR[2] := 7; {Foreground color for Normal text}
  20.       COLOR[3] := 15;{Background color for Highlight Bar (reverse video)}
  21.       COLOR[4] := 0; {Foreground color for Highlight Bar (reverse video)}
  22.       COLOR[5] := 15;{Foreground color for Brighter text (help keywords)}
  23.     End
  24.   Else
  25.     Begin
  26.       COLOR[1] := 1; {Background color for Normal text}
  27.       COLOR[2] := 15;{Foreground color for Normal text}
  28.       COLOR[3] := 15;{Background color for Highlight Bar (reverse video)}
  29.       COLOR[4] := 1; {Foreground color for Highlight Bar (reverse video)}
  30.       COLOR[5] := 11;{Foreground color for Brighter text (help keywords)}
  31.     End;
  32.  
  33.   ClrScr;
  34.   GotoXY(1,10);
  35.   Writeln('Welcome to the Demonstration program for HyperLink(tm)!');
  36.   Writeln;
  37.   Writeln('press any key to continue...');
  38.   Repeat
  39.   Until ReadKey > #0;
  40.   ClrScr;
  41. { You will probably want to turn the cursor off, as well as save the }
  42. { contents of the screen at this time.}
  43.   HyperLink(1,2,79,25,'Main Menu');{******************************************}
  44. { Turn the cursor back on and restore the previous contents of the screen. }
  45.  
  46.   ClrScr;
  47.   GotoXY(1,10);
  48.   Writeln('This help facility allows you specify the size and location of the');
  49.   Writeln('help window on the screen.');
  50.   Writeln;
  51.   Writeln('press any key to continue...');
  52.   Repeat
  53.   Until ReadKey > #0;
  54.   ClrScr;
  55.   HyperLink(12,2,68,21,'Main Menu');{******************************************}
  56.  
  57.   ClrScr;
  58.   GotoXY(1,10);
  59.   Writeln('You may also start the help facility with the topic of your choice');
  60.   Writeln;
  61.   Writeln('press any key to continue...');
  62.   Repeat
  63.   Until ReadKey > #0;
  64.   ClrScr;
  65.   HyperLink(19,5,79,24,'Registration');{******************************}
  66.  
  67. End.
  68.